*Black, Owens, Wedeking & Wohlfarth
*Chapter 8 Replication


use "Ch-8_Data_Preemptive.dta"

stset asgncir1

*Table 8.1

*Model 1
stcox consciPI openPI extraPI agreePI neuroPI, robust cl(author) nohr

*Model 2
stcox consciPI openPI extraPI agreePI neuroPI legalimp amiciz caseidis caseistd margin cmajcop1 factor1 asgnjuly workload auth1 fresh authexp, robust cl(author) nohr

*Model 3
stcox c.consciPI##i.legalimp openPI extraPI agreePI neuroPI, robust cl(author) nohr

*Model 4
stcox c.consciPI##i.legalimp openPI extraPI agreePI neuroPI amiciz caseidis caseistd margin cmajcop1 factor1 asgnjuly workload auth1 fresh authexp, robust cl(author) nohr

*Model 5
stcox c.consciPI##c.amiciz openPI extraPI agreePI neuroPI, robust cl(author) nohr

*Model 6
stcox c.consciPI##c.amiciz openPI extraPI agreePI neuroPI legalimp caseidis caseistd margin cmajcop1 factor1 asgnjuly workload auth1 fresh authexp, robust cl(author) nohr

*Figure 8.6
stcox consciPI openPI extraPI agreePI neuroPI legalimp amiciz caseidis caseistd margin cmajcop1 factor1 asgnjuly workload auth1 fresh authexp, robust cl(author) nohr
stcurve, surv at(consciPI=-1.429 legalimp=0 auth1=0 fresh=0) at(consciPI=0.9025 legalimp=0 auth1=0 fresh=0) xtitle(Time to First Draft) ytitle(Probability of Surviival to t) title("") scheme(s1mono) legend(order(1 "Low Conscientiousness" 2 "High Conscientiousness"))

*Table 8.6
stcox consciPI openPI extraPI agreePI neuroPI legalimp amiciz caseidis caseistd margin cmajcop1 factor1 asgnjuly workload auth1 fresh authexp, robust cl(author) nohr tvc(consciPI) texp(ln(_t))
stcox consciPI openPI extraPI agreePI neuroPI legalimp amiciz caseidis caseistd margin cmajcop1 factor1 asgnjuly workload auth1 fresh authexp, robust cl(author) tvc(consciPI) texp(ln(_t))

*Table 8.7
stcox consciPI openPI extraPI agreePI neuroPI legalimp amiciz caseidis caseistd margin cmajcop1 factor1 asgnjuly workload auth1 fresh authexp, robust cl(author) nohr tvc(consciPI openPI extraPI agreePI neuroPI legalimp caseidis caseistd cmajcop1 factor1 asgnjuly workload auth1) texp(ln(_t))
stcox consciPI openPI extraPI agreePI neuroPI legalimp amiciz caseidis caseistd margin cmajcop1 factor1 asgnjuly workload auth1 fresh authexp, robust cl(author) tvc(consciPI openPI extraPI agreePI neuroPI legalimp caseidis caseistd cmajcop1 factor1 asgnjuly workload auth1) texp(ln(_t))

clear


use "Ch-8_Data_Bargaining.dta"

*Table 8.2

*Model 1
logit bargain consciPI openPI extraPI agreePI neuroPI, robust

*Model 2
logit bargain consciPI openPI extraPI agreePI neuroPI legalimp amiciz ideodist coaldst1 margin annresid factislw days2end totwork cj authfres expdif, robust

*Model 3
logit bargain c.consciPI##i.legalimp openPI extraPI agreePI neuroPI, robust

*Model 4
logit bargain c.consciPI##i.legalimp openPI extraPI agreePI neuroPI amiciz ideodist coaldst1 margin annresid factislw days2end totwork cj authfres expdif, robust

*Model 5
logit bargain c.consciPI##c.amiciz openPI extraPI agreePI neuroPI, robust

*Model 6
logit bargain c.consciPI##c.amiciz openPI extraPI agreePI neuroPI legalimp ideodist coaldst1 margin annresid factislw days2end totwork cj authfres expdif, robust

*Figure 8.7
logit bargain consciPI openPI extraPI agreePI neuroPI legalimp amiciz ideodist coaldst1 margin annresid factislw days2end totwork cj authfres expdif, robust
quietly margins, at(consciPI=(-3.7(.1)0.9))
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Predicted Probability of Bargaining) title("") scheme(s1mono)

*Figure 8.8(a)
logit bargain c.consciPI##i.legalimp openPI extraPI agreePI neuroPI amiciz ideodist coaldst1 margin annresid factislw days2end totwork cj authfres expdif, robust
quietly margins, dydx(legalimp) at(consciPI=(-3.7(.1)0.9))
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) ylin(0) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Average Marginal Effect of Legal Salience) title("") scheme(s1mono)

*Figure 8.8(b)
logit bargain c.consciPI##c.amiciz openPI extraPI agreePI neuroPI legalimp ideodist coaldst1 margin annresid factislw days2end totwork cj authfres expdif, robust
quietly margins, dydx(amiciz) at(consciPI=(-3.7(.1)0.9))
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) ylin(0) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Average Marginal Effect of Political Salience) title("") scheme(s1mono)


*Table 8.3
mlogit action1f consciPI openPI extraPI agreePI neuroPI legalimp amiciz ideodist coaldst1 margin annresid factislw days2end totwork cj authfres expdif, robust

*Figure 8.9
margins, dydx(consciPI)
marginsplot, recast(scatter) xlabel(0(1)6) plotopt(mcolor(black) msymbol(circle)) ciopts(lcolor(black) msize(small)) ylin(0) level(90) xtitle(Type of Bargaining Response) ytitle(Average Marginal Effect of Conscientiousness) title("") scheme(s1mono) legend(off)  

*Figure 8.10
quietly margins, at(consciPI=(-3.7(.1)0.9)) predict(outcome(1)) predict(outcome(2)) predict(outcome(4)) predict(outcome(5))
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) noci xtitle(Supreme Court Justice Conscientiousness) ytitle(Predicted Probability of Bargaining) title("") scheme(s1mono) legend(cols(4) order(1 "Wait" 2 "Suggestion" 3 "Concur" 4 "Dissent"))


*Table 8.4
mlogit action1f c.consciPI##i.legalimp openPI extraPI agreePI neuroPI amiciz ideodist coaldst1 margin annresid factislw days2end totwork cj authfres expdif, robust

*Figure 8.11(a)
quietly margins, dydx(legalimp) at(consciPI=(-3.7(.1)0.9)) pr(out(0))
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) ylin(0) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Average Marginal Effect of Legal Salience) title("") scheme(s1mono)

*Figure 8.11(b)
quietly margins, dydx(legalimp) at(consciPI=(-3.7(.1)0.9)) pr(out(1))
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) ylin(0) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Average Marginal Effect of Legal Salience) title("") scheme(s1mono)

*Figure 8.11(c)
quietly margins, dydx(legalimp) at(consciPI=(-3.7(.1)0.9)) pr(out(2))
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) ylin(0) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Average Marginal Effect of Legal Salience) title("") scheme(s1mono)

*Figure 8.11(d)
quietly margins, dydx(legalimp) at(consciPI=(-3.7(.1)0.9)) pr(out(3))
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) ylin(0) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Average Marginal Effect of Legal Salience) title("") scheme(s1mono)

*Figure 8.11(e)
quietly margins, dydx(legalimp) at(consciPI=(-3.7(.1)0.9)) pr(out(4))
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) ylin(0) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Average Marginal Effect of Legal Salience) title("") scheme(s1mono)

*Figure 8.11(f)
quietly margins, dydx(legalimp) at(consciPI=(-3.7(.1)0.9)) pr(out(5))
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) ylin(0) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Average Marginal Effect of Legal Salience) title("") scheme(s1mono)

*Figure 8.11(g)
quietly margins, dydx(legalimp) at(consciPI=(-3.7(.1)0.9)) pr(out(6))
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) ylin(0) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Average Marginal Effect of Legal Salience) title("") scheme(s1mono)


*Table 8.5
mlogit action1f c.consciPI##c.amiciz openPI extraPI agreePI neuroPI legalimp ideodist coaldst1 margin annresid factislw days2end totwork cj authfres expdif, robust

*Figure 8.12(a)
quietly margins, dydx(amiciz) at(consciPI=(-3.7(.1)0.9)) pr(out(0))
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) ylin(0) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Average Marginal Effect of Political Salience) title("") scheme(s1mono)

*Figure 8.12(b)
quietly margins, dydx(amiciz) at(consciPI=(-3.7(.1)0.9)) pr(out(1))
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) ylin(0) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Average Marginal Effect of Political Salience) title("") scheme(s1mono)

*Figure 8.12(c)
quietly margins, dydx(amiciz) at(consciPI=(-3.7(.1)0.9)) pr(out(2))
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) ylin(0) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Average Marginal Effect of Political Salience) title("") scheme(s1mono)

*Figure 8.12(d)
quietly margins, dydx(amiciz) at(consciPI=(-3.7(.1)0.9)) pr(out(3))
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) ylin(0) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Average Marginal Effect of Political Salience) title("") scheme(s1mono)

*Figure 8.12(e)
quietly margins, dydx(amiciz) at(consciPI=(-3.7(.1)0.9)) pr(out(4))
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) ylin(0) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Average Marginal Effect of Political Salience) title("") scheme(s1mono)

*Figure 8.12(f)
quietly margins, dydx(amiciz) at(consciPI=(-3.7(.1)0.9)) pr(out(5))
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) ylin(0) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Average Marginal Effect of Political Salience) title("") scheme(s1mono)

*Figure 8.12(g)
quietly margins, dydx(amiciz) at(consciPI=(-3.7(.1)0.9)) pr(out(6))
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) ylin(0) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Average Marginal Effect of Political Salience) title("") scheme(s1mono)

clear


use "Ch-8_Data_Responsive.dta"

*Table 8.8

*Model 1
xtgee die2 consciPI openPI extraPI agreePI neuroPI legalimp amiciz ideodst2 nonstd21 margin ncoopdf2 havemaj totsugg3 numwait numwrite sepopn1 factor1 days2end workload auth1 fresh authexp tl1 tl2 tl3 tl4 tl5, fam(binomial) link(probit) corr(exch) robust i(id) t(circ)

*Model 2
xtgee die2 c.consciPI##i.legalimp openPI extraPI agreePI neuroPI amiciz ideodst2 nonstd21 margin ncoopdf2 havemaj totsugg3 numwait numwrite sepopn1 factor1 days2end workload auth1 fresh authexp tl1 tl2 tl3 tl4 tl5, fam(binomial) link(probit) corr(exch) robust i(id) t(circ)

*Model 3
xtgee die2 c.consciPI##c.amiciz openPI extraPI agreePI neuroPI legalimp ideodst2 nonstd21 margin ncoopdf2 havemaj totsugg3 numwait numwrite sepopn1 factor1 days2end workload auth1 fresh authexp tl1 tl2 tl3 tl4 tl5, fam(binomial) link(probit) corr(exch) robust i(id) t(circ)

*Figure 8.13(a)
xtgee die2 c.consciPI##i.legalimp openPI extraPI agreePI neuroPI amiciz ideodst2 nonstd21 margin ncoopdf2 havemaj totsugg3 numwait numwrite sepopn1 factor1 days2end workload auth1 fresh authexp tl1 tl2 tl3 tl4 tl5, fam(binomial) link(probit) corr(exch) robust i(id) t(circ)
quietly margins, dydx(legalimp) at(consciPI=(-3.7(.1)0.9))
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) ylin(0) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Average Marginal Effect of Legal Salience) title("") scheme(s1mono)

*Figure 8.13(b)
xtgee die2 c.consciPI##c.amiciz openPI extraPI agreePI neuroPI legalimp ideodst2 nonstd21 margin ncoopdf2 havemaj totsugg3 numwait numwrite sepopn1 factor1 days2end workload auth1 fresh authexp tl1 tl2 tl3 tl4 tl5, fam(binomial) link(probit) corr(exch) robust i(id) t(circ)
quietly margins, dydx(amiciz) at(consciPI=(-3.7(.1)0.9)) 
marginsplot, xlabel(-3.6(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) ylin(0) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Average Marginal Effect of Political Salience) title("") scheme(s1mono)

*Figure 8.13(c)
quietly margins, at(consciPI=(-3.7(.1)0.9) amiciz=(-0.708 5.351)) 
marginsplot, xlabel(-3.6(.5)0.9) ylabel(.3(.05).45) plotopt(msymbol(none)) noci level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Predicted Probability of Final Circulation) title("") scheme(s1mono) legend(order(1 "Low Political Salience" 2 "High Political Salience"))

